home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / sports info / AnySchedule Schedule Builder 1.0 / buildsched.ZIP / buildpdb < prev    next >
Encoding:
Text File  |  1999-05-19  |  700 b   |  22 lines
  1. /* Build AnySchedule PDB */
  2. trace off
  3. say 'enter input filename (e.g. c:\mydata\sample.txt)'
  4. pull infile
  5. say 'enter output filename (e.g. c:\mydata\sample.pdb)'
  6. pull outfile
  7. reslt = builddat(infile)
  8. if reslt = 1 then do
  9.    say '*******************************************'
  10.    say '*                                         *'
  11.    say '* The text file was EMPTY or NOT FOUND    *'
  12.    say '*                                         *'
  13.    say '* The .PDB file will NOT be built         *'
  14.    say '*                                         *'
  15.    say '*******************************************'
  16. exit
  17. end
  18. reslt2 = buildhdr(reslt)
  19. 'copy header.fil /b + datapart.dat /b ' outfile
  20. exit
  21.  
  22.